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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ag 
ONLY IN ACCOR age WITH THE TERMS OF SUCH Tt AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT ARE OR ANY OTHER 
COPIES THEREOF MAY A BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Thenstenatee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: CROSS REFERENCE PROGRAM 
ABSTRACT: ACCEPTS CROSS REFERENCE DATA AND PRODUCES A SUMMARY 


ENVIRONMENT : 


AUTHOR: K.D. MORSE , CREATION DATE: 12-APR-77 


MODIFIED BY: 
01.01 68.L. SCHREIBER 25-Oct-1979 | 
Change macro name and arguments to conform with bliss names 
01.02 8.L. SCHREIBER 12-Dec-1979 
Modify for new Cref. 
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LINKABLE IMAGE TO BE USED WITH THE NATIVE MODE LINKER AND COMPILERS 
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3 MACRO TO INITIALIZE THE OUTPUT LINE DESCRIPTION TABLE 

; SCRFCTLTABLE KEVTYPE ERROR: OUTPUT, MEMEXP, KEVITABLE, KEYZTABLE,- 

; VAL TABLE ,VAL2 TABLE ,REF 1 TABLE ,REF 

; WHERE 

; KEYTYPE = TYPE OF KEY, Q=ASCIC, 1=BINARY LONGWORD 

; ERROR = ADDRESS OF USERS ERROR ROUTINE 

; QUTPUT = ADDRESS OF USER'S OUTPUT ROUTINE 

; MEXP = NUMBER OF PAGES TO EXPREG BY WHEN NEEDED 

; cenit = ADDRESS OF KEV] FIELD DESCRIPTION TABLE 

; KEVZTABLE = ADDRESS OF KEY? FIELD DESCRIPTION TABLE 

; VALITABLE = ADDRESS OF VALT FIELD DESCRIPTION TABLE 

3 GTABLE = ADDRESS OF VAL? FIELD DESCRIPTION TABLE 

; = ADDRESS OF REF! FIELD DESCRIPTION TABLE 

; fer itaaty = ADDRESS OF REF2 FIELD DESCRIPTION TABLE 

‘ “MACRO SCRFCTLTABLE — KEYTYPESASCIC OUTPUT -ERROR=0 MERENP=50, KEY TABLE=O,- 
KEY STABLES -VAL1TABLE=0,VAL2TABLE=0,REF 1TABLE=0, 

= 


LONG 9 
BYTE CRFSK_"KEYTYPE 


LONG cast 
“LONG 0,0,0.0,0 
S ADDRESS 050,0,0. 
“ADDRESS OUTPUT 


ADDRESS KEYITABLE 


MACRO TO DEFINE ONE FIELD OF THE OUTPUT LINE 


ADDRESS OF HASH TABLE 

ADDRESS OF LAST KEY LOOKED AT 

TYPE OF KEY 

CRF FLAGS 

SECONDARY ERROR STATUS CODE 

NUMBER OF ENTRIES IN CROSS REFERENCE 
LIST HEAD FOR VIRTUAL MEMORY ALLOCATED 
NUMBER ee BYTES TO EXPAND REGION BY 


NUMBER OF PAGES TO EXPAND REGION BY 
RESERVED FOR EXPANSION 

ADDR OF ERROR ROUTINE 

ADDR OF OUTPUT ROUTINE 
ADDRESSES OF FIELD DESCRIPTIONS 
KEY] FIELD DESCRIPTIONS 

Keve 4th peace iprion’ 

VAL? FIELD DESCRIPTION 

vale FIELD DESCRIPTIONS 

REF? FIELD DESCRIPTIONS 

REF2 FIELD DESCRIPTION 

END OF INIT MACRO 


SCRFFIELD BIT_MASK, FAO_STRING, SET_CLEAR, FIELD_WIOTH 
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x 
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Ueiatieee 


x BI 
CLEARSMASE 


MACRO SCRFFIELD BIT_MASK=0, 


SAVE 

_PSect SSCRFSTRNG,RD,WRT REL ,NOEXE, 
eASCII \FAO_STRING\ 

a 


.RESTORE 

{WORD BIT_MASK!*x8000 

If JON <SET_CLEAR>, <CLEAR> 
“BYTE 

TIFF 

‘BYTE 1 

“ENDC 


-BYTE FIELD_WIDTH 


LONG $S$SLNG2-SSSLNG1 
ADDRESS $$SLNG1 


-ENDM = SCRFFIELD 


SCRFFIELDEND 
WHERE : 
THERE ARE NO FORMAL PARAMETERS. 


MACRO SCRFFIELDEND 
-WORD 0 
-ENDM = SCRFFIELDEND 
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ESCRIPTION HOLDS 


Dd 
FIELD 
E. ONE OF THE FOLLOWING: 


FAO_STRING=0,Ff IELD_WIDTH=0,SET_CLEAR=0 
REMEMBER USER'S PSECT 

3 ADDRESS OF FAO CONTROL STRING 

; OUTPUT FIELD wr tes 8 STRING 
INDICATOR FOR LENGTH 


; RESTORE USER'S PSECT 
; RECORD MASK BITS 


DETERMINE WHETHER 
MASK IS TO BE CLEAR 


OR | 
MASK IS TO BE SET 


nose 


; MAXIMUM SIZE OF FIELD 


3 STRING DESCRIPTOR 
; FOR FAO CONTROL STRING 


: END OF FIELD DESCRIPTION MACRO 


MACRO TO INDICATE END OF OUTPUT LINE DESCRIPTION TABLE 


; END FIELD DESCRIPTIONS 
; END OF MACRO 
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